library(tidyverse)
library(knitr)
library(RMySQL)
library(yaml)
library(tidyverse)
library(magrittr)
library(knitr)
library(stringr)
library(purrr)
sessionInfo()$otherPkgs %>%
map_chr(function(pkg) paste(pkg$Package, pkg$Version)) %>%
cat(sep = "\n")
readxl 0.1.1
stringr 1.1.0
magrittr 1.5
yaml 2.1.14
RMySQL 0.10.9
DBI 0.5-1
knitr 1.15.1
dplyr 0.5.0
purrr 0.2.2
readr 1.0.0
tidyr 0.6.1
tibble 1.2
ggplot2 2.2.1
tidyverse 1.1.1
opts_chunk$set(message = FALSE, warning = FALSE, comment = " ",
cache = TRUE, autodep = TRUE, cache.comments = FALSE)
table_names %>%
str_detect(regex("^\\d{4}_all_applicants$", ignore_case = TRUE)) %>%
which() %>%
extract(table_names, .) %>%
purrr::map(., function(tbl_name) tbl(edu_db, tbl_name)) %>%
purrr::map(., function(x) collect(x))
[[1]]
[[2]]
[[3]]
[[4]]
NA
LS0tCnRpdGxlOiAiRWR1Y2F0aW9uIEFuYWx5dGljcyBBZG1pc3Npb25zIFNjcmVlbmluZyBQcm9qZWN0IgpzdWJ0aXRsZTogIkNvbm5lY3Rpb24gdG8gZWR1X2FuYWx5dGljcyBkYXRhYmFzZSIKYXV0aG9yOiAiSmFjcXVlbGluZSBHdXRtYW4sIFN1dmFtIFBhdWwiCmRhdGU6ICdMYXN0IHVwZGF0ZWQ6IGByIGZvcm1hdChTeXMuRGF0ZSgpLCAiJUIgJWQsICVZIikgYCAnCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiB5ZXMKICAgIHRvY19kZXB0aDogJzQnCiAgaHRtbF9ub3RlYm9vazoKICAgIGhpZ2hsaWdodDogdGFuZ28KICAgIHRoZW1lOiBjb3NtbwogICAgdG9jOiB5ZXMKICAgIHRvY19kZXB0aDogNAotLS0KCmBgYHtyLCBtZXNzYWdlPUZBTFNFfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShrbml0cikKbGlicmFyeShSTXlTUUwpCmxpYnJhcnkoeWFtbCkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkobWFncml0dHIpCmxpYnJhcnkoa25pdHIpCmxpYnJhcnkoc3RyaW5ncikKbGlicmFyeShwdXJycikKCnNlc3Npb25JbmZvKCkkb3RoZXJQa2dzICU+JSAKICBtYXBfY2hyKGZ1bmN0aW9uKHBrZykgcGFzdGUocGtnJFBhY2thZ2UsIHBrZyRWZXJzaW9uKSkgJT4lCiAgY2F0KHNlcCA9ICJcbiIpCm9wdHNfY2h1bmskc2V0KG1lc3NhZ2UgPSBGQUxTRSwgd2FybmluZyA9IEZBTFNFLCBjb21tZW50ID0gIiAgICIsCiAgICAgICAgICAgIGNhY2hlID0gVFJVRSwgYXV0b2RlcCA9IFRSVUUsIGNhY2hlLmNvbW1lbnRzID0gRkFMU0UpCgpgYGAKCmBgYHtyLCBlY2hvPUZBTFNFfQojY3JlZGVudGlhbHNfcGF0aCA8LSAiL1ZvbHVtZXMvSUlNRS9FRFMvZGF0YS9hZG1pc3Npb25zL2RiX2NyZWRlbnRpYWxzLyIKY3JlZGVudGlhbHNfcGF0aCA8LSAiL1ZvbHVtZXMvSUlNRS9JSU1FL0VEUy9kYXRhL2FkbWlzc2lvbnMvZGJfY3JlZGVudGlhbHMvIgpjcmVkZW50aWFsc19maWxlIDwtICJvd25lcl9jcmVkZW50aWFscy55YW1sIgpjcmVkZW50aWFscyA8LSBwYXN0ZTAoY3JlZGVudGlhbHNfcGF0aCwgY3JlZGVudGlhbHNfZmlsZSkgJT4lIAogIHlhbWw6OnlhbWwubG9hZF9maWxlKCkKCiMgZWR1X2RiX2NvbiA8LSBkYkNvbm5lY3QoTXlTUUwoKSwgCiMgICAgICAgICB1c2VyID0gY3JlZGVudGlhbHMkdXNlciwgCiMgICAgICAgICBwYXNzd29yZCA9IGNyZWRlbnRpYWxzJHBhc3N3b3JkLCAKIyAgICAgICAgIGRibmFtZSA9IGNyZWRlbnRpYWxzJGRibmFtZSwgCiMgICAgICAgICBob3N0ID0gY3JlZGVudGlhbHMkaG9zdCwKIyAgICAgICAgIHBvcnQgPSBjcmVkZW50aWFscyRwb3J0KQoKZWR1X2RiIDwtIHNyY19teXNxbChjcmVkZW50aWFscyRkYm5hbWUsCiAgICAgICAgICAgICAgICAgICAgaG9zdCA9IGNyZWRlbnRpYWxzJGhvc3QsCiAgICAgICAgICAgICAgICAgICAgcG9ydCA9IGNyZWRlbnRpYWxzJHBvcnQsCiAgICAgICAgICAgICAgICAgICAgdXNlciA9IGNyZWRlbnRpYWxzJHVzZXIsCiAgICAgICAgICAgICAgICAgICAgcGFzc3dvcmQgPSBjcmVkZW50aWFscyRwYXNzd29yZCkKCnJtKGNyZWRlbnRpYWxzKQpgYGAKCmBgYHtyfQoKKHRhYmxlX25hbWVzIDwtIGRiX2xpc3RfdGFibGVzKGVkdV9kYiRjb24pKQoKdGFibGVfbmFtZXMgJT4lIAogIHN0cl9kZXRlY3QocmVnZXgoIl5cXGR7NH1fYWxsX2FwcGxpY2FudHMkIiwgaWdub3JlX2Nhc2UgPSBUUlVFKSkgJT4lCiAgd2hpY2goKSAlPiUgCiAgZXh0cmFjdCh0YWJsZV9uYW1lcywgLikgJT4lIAogIHB1cnJyOjptYXAoLiwgZnVuY3Rpb24odGJsX25hbWUpIHRibChlZHVfZGIsIHRibF9uYW1lKSkgJT4lCiAgcHVycnI6Om1hcCguLCBmdW5jdGlvbih4KSBjb2xsZWN0KHgpKSAlPiUKICBzZXRfbmFtZXMoMjAxMzoyMDE2KSAtPiBhcHBsaWNhbnRzX2RhdGEKICAKYGBgCgpgYGB7cn0KZGJEaXNjb25uZWN0KGVkdV9kYiRjb24pCmBgYAoK